*&---------------------------------------------------------------------*
*& Report  ZDEMO_OO_ALV_ALL
*&
*&---------------------------------------------------------------------*

REPORT  ZSU_OO_ALV_ALL.
DATA : O_CONTAINER1 TYPE REF TO CL_GUI_custom_CONTAINER,
       O_GRID1      TYPE REF TO CL_GUI_ALV_GRID,
       IT_EKKO      TYPE TABLE OF EKKO.


START-OF-SELECTION.
    CALL SCREEN 9000.

*&---------------------------------------------------------------------*
*&      Module  DISPLAY_ALV_9000  OUTPUT
*&---------------------------------------------------------------------*
module DISPLAY_ALV_9000 output.


*Create Container1 Obj
CREATE OBJECT o_container1
  EXPORTING
*    parent                      =
    container_name              = 'C1'
*    style                       =
*    lifetime                    = lifetime_default
*    repid                       =
*    dynnr                       =
*    no_autodef_progid_dynnr     =
*  EXCEPTIONS
*    cntl_error                  = 1
*    cntl_system_error           = 2
*    create_error                = 3
*    lifetime_error              = 4
*    lifetime_dynpro_dynpro_link = 5
*    others                      = 6
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


*Create Grid Obj
CREATE OBJECT o_grid1
  EXPORTING
*    i_shellstyle      = 0
*    i_lifetime        =
    i_parent          = o_container1
*    i_appl_events     = space
*    i_parentdbg       =
*    i_applogparent    =
*    i_graphicsparent  =
*    i_name            =
*    i_fcat_complete   = space
*  EXCEPTIONS
*    error_cntl_create = 1
*    error_cntl_init   = 2
*    error_cntl_link   = 3
*    error_dp_create   = 4
*    others            = 5
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL METHOD o_grid1->set_table_for_first_display
  EXPORTING
*    i_buffer_active               =
*    i_bypassing_buffer            =
*    i_consistency_check           =
    i_structure_name              = 'EKKO'
*    is_variant                    =
*    i_save                        =
*    i_default                     = 'X'
*    is_layout                     =
*    is_print                      =
*    it_special_groups             =
*    it_toolbar_excluding          =
*    it_hyperlink                  =
*    it_alv_graphics               =
*    it_except_qinfo               =
*    ir_salv_adapter               =
  CHANGING
    it_outtab                     = IT_EKKO
*    it_fieldcatalog               =
*    it_sort                       =
*    it_filter                     =
*  EXCEPTIONS
*    invalid_parameter_combination = 1
*    program_error                 = 2
*    too_many_lines                = 3
*    others                        = 4
        .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*CALL METHOD o_grid1->get_selected_rows
*  IMPORTING
*    et_index_rows =
**    et_row_no     =
    .

endmodule.                 " DISPLAY_ALV_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  GET_DATA_9000  OUTPUT
*&---------------------------------------------------------------------*
module GET_DATA_9000 output.
SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.
endmodule.                 " GET_DATA_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
module STATUS_9000 output.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
module USER_COMMAND_9000 input.
  CASE SY-UCOMM.
     WHEN 'BACK'.
         LEAVE TO SCREEN 0.
  ENDCASE.
endmodule.                 " USER_COMMAND_9000  INPUT